﻿
Imports SponsorshipLogic
Imports SponsorshipLogic.AuditTrail


Public Class AuditTrailManager
    Private WithEvents _AuditTrailCtrl As ctlAuditTrail

    Public Sub New()

    End Sub

    Public Sub New(ByVal AuditTrailCtrl As ctlAuditTrail)
        _AuditTrailCtrl = AuditTrailCtrl
        Fill()
    End Sub

    Public Sub Fill()
        Dim dt As DataTable = AuditTrail.Table
        _AuditTrailCtrl.Table = dt
    End Sub



End Class
